(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     64474,       1659]
NotebookOptionsPosition[     61293,       1573]
NotebookOutlinePosition[     61637,       1588]
CellTagsIndexPosition[     61594,       1585]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox["\:0412\:044b\:0432\:043e\:0434 \
\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439 \:0434\:0432\:0438\
\:0436\:0435\:043d\:0438\:044f \:041b\:0410 \:0442\:0438\:043f\:0430 \"\:0441\
\:0430\:043c\:043e\:043b\:0435\:0442\"\n",
  FontSize->36,
  FontWeight->"Bold"],
 StyleBox["\:0414\:043e\:043f\:0443\:0449\:0435\:043d\:0438\:044f:\n1) \:041a\
\:043e\:043d\:0441\:0442\:0440\:0443\:043a\:0446\:0438\:044f \:041b\:0410 \
\:0430\:0431\:0441\:043e\:043b\:044e\:0442\:043d\:043e \:0436\:0435\:0441\
\:0442\:043a\:0430\:044f (\:041b\:0410 - \:0442\:0432\:0435\:0440\:0434\:043e\
\:0435 \:0442\:0435\:043b\:043e);\n2) \:0410\:0442\:043c\:043e\:0441\:0444\
\:0435\:0440\:0430 \:0441\:043f\:043e\:043a\:043e\:0439\:043d\:0430\:044f \
(W=0 - \:0441\:043a\:043e\:0440\:043e\:0441\:0442\:044c \:0432\:0435\:0442\
\:0440\:0430);\n3) \:041c\:0430\:0441\:0441\:0430 \:041b\:0410 \:043f\:043e\
\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f \:0442.\:043a. \:0437\:0430\
\:0434\:0430\:043d\:043d\:043e\:0435 \:0432\:0440\:0435\:043c\:044f \:043f\
\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:044b\:0445 \:043f\:0440\:043e\
\:0446\:0435\:0441\:0441\:043e\:0432 \:043c\:0435\:043d\:044c\:0448\:0435 60 \
\:0441;\n4) \:0417\:0435\:043c\:043b\:044f \:043f\:043b\:043e\:0441\:043a\
\:0430\:044f \:0438 \:043d\:0435 \:0432\:0440\:0430\:0449\:0430\:0435\:0442\
\:0441\:044f;\n5) \:0423\:0433\:043e\:043b \:0442\:0430\:043d\:0433\:0430\
\:0436\:0430 \:043d\:0435 \:0440\:0430\:0432\:0435\:043d +/-90 \:0433\:0440\
\:0430\:0434\:0443\:0441\:043e\:0432;\n6) \
\:0421\:043f\:0430\:0440\:0432\:0435\:0434\:043b\:0438\:0432\:0430 \:0433\
\:0438\:043f\:043e\:0442\:0435\:0437\:0430 \:0441\:0442\:0430\:0446\:0438\
\:043e\:043d\:0430\:0440\:043d\:043e\:0441\:0442\:0438 (\:0441\:043e\:0433\
\:043b\:0430\:0441\:043d\:043e \:044d\:0442\:043e\:0439 \:0433\:0438\:043f\
\:043e\:0442\:0435\:0437\:0435, \:0430\:044d\:0440\:043e\:0434\:0438\:043d\
\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0430\:044f \:0441\:0438\:043b\
\:0430 \:0438 \:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\
\:0447\:0435\:0441\:043a\:0438\:0439 \:043c\:043e\:043c\:0435\:043d\:0442 \
\:0432 \:043d\:0435\:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\
\:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\
\:0435\:0442\:0430 \:043f\:043e\:043b\:043d\:043e\:0441\:0442\:044c\:044e \
\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:044f\:044e\:0442\:0441\:044f \
\:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0430\:043c\:0438 \:043f\:0430\
\:0440\:0430\:043c\:0435\:0442\:0440\:043e\:0432 \:0432 \:0434\:0430\:043d\
\:043d\:044b\:0439 \:043c\:043e\:043c\:0435\:043d\:0442 \:0432\:0440\:0435\
\:043c\:0435\:043d\:0438).",
  FontSize->18,
  FontWeight->"Bold"],
 StyleBox["\n\:0421\:0438\:0441\:0442\:0435\:043c\:044b \:043a\:043e\:043e\
\:0440\:0434\:0438\:043d\:0430\:0442 \:0438 \:043c\:0430\:0442\:0440\:0438\
\:0446\:044b \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430",
  FontSize->36,
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.4964223859290233`*^9, 3.496422441451199*^9}, {
   3.496422514102354*^9, 3.4964225156204414`*^9}, {3.496422556601785*^9, 
   3.496422568910489*^9}, {3.4964270720950565`*^9, 3.496427248697158*^9}, {
   3.496427412645535*^9, 3.4964274323866644`*^9}, {3.4964275151103954`*^9, 
   3.4964275223358088`*^9}, {3.4964276114889083`*^9, 
   3.4964276119689355`*^9}, {3.4964277249904003`*^9, 3.49642782096789*^9}, {
   3.496428617357441*^9, 3.4964286488232403`*^9}, {3.4964289789451222`*^9, 
   3.496429013386092*^9}, 3.49642958138958*^9, {3.4975856138554587`*^9, 
   3.497585636163498*^9}, 3.497588524348574*^9, 3.497591868033391*^9, {
   3.4981973509964037`*^9, 3.498197351829451*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"M1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", 
    "\:043d\:0430\:043a\:043b\:043e\:043d\:0430", " ", 
    "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:0438\:0438"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975855745277896`*^9, 3.497585575338991*^9}, 
   3.4975856759903708`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"M2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"BPsi", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", "\:043f\:0443\:0442\:0438"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975857196704473`*^9, 3.497585725052457*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"M", "=", 
    RowBox[{"M2", ".", "M1"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", 
    " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439",
     " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:043a", 
    " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497585747329296*^9, 3.4975857579529147`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"M", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"BPsi", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
       RowBox[{
        RowBox[{"Bteta", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], 
   "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0430", " ", 
    "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:043e\:0439\
", " ", "\:043d\:0443\:043b\:0435\:0432\:044b\:0445", " ", 
    "\:0443\:0433\:043b\:043e\:0432", " ", 
    RowBox[{
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:043e\:0432", ".", " ", 
     "\:0414\:043e\:043b\:0436\:043d\:0430"}], " ", 
    "\:043f\:043e\:043b\:0443\:0447\:0438\:0442\:044c\:0441\:044f", " ", 
    "\:0435\:0434\:0438\:043d\:0438\:0447\:043d\:0430\:044f", " ", 
    "\:043c\:0430\:0442\:0440\:0438\:0446\:0430"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.497585808185003*^9, 3.4975858125530105`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"LPsi", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", 
    "\:0440\:044b\:0441\:043a\:0430\:043d\:0438\:044f"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.497585868011108*^9, 3.4975858690095096`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", 
    "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975858784163265`*^9, 3.497585902362368*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM3", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"LGamma", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"LGamma", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", "\:043a\:0440\:0435\:043d\:0430"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497585920864001*^9, 3.4975859218312025`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM", "=", 
    RowBox[{"MM1", ".", "MM2", ".", "MM3"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", 
    " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:043a", 
    " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497585956276063*^9, 3.497585957477265*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SM1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"Alpha", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"Alpha", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"Alpha", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", "\:0430\:0442\:0430\:043a\:0438"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975860746594715`*^9, 3.497586076203874*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SM2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"Betta", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"Betta", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", 
    " ", "\:0443\:0433\:043e\:043b", " ", 
    "\:0441\:043a\:043e\:043b\:044c\:0436\:0435\:043d\:0438\:044f"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497586102879921*^9, 3.497586103893923*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SM", "=", 
    RowBox[{"Transpose", "[", 
     RowBox[{"SM2", ".", "SM1"}], "]"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", 
    " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:043a", 
    " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975861303983693`*^9, 3.4975861317399716`*^9}}],

Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\
\:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\
\:0438\:044f \:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\
\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\
\:044f",
 FontSize->36,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.4975865797415586`*^9, 3.4975865934071827`*^9}, 
   3.4975885334901905`*^9, 3.4975918722576327`*^9}],

Cell[BoxData[
 RowBox[{"R", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"L", "[", "t", "]"}], ",", 
    RowBox[{"H", "[", "t", "]"}], ",", 
    RowBox[{"dZ", "[", "t", "]"}]}], "}"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0420\:0430\:0434\:0438\:0443\:0441", " ", 
     "\:0432\:0435\:043a\:0442\:043e\:0440", " ", 
     "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", 
     " ", "\:041b\:0410"}], ",", " ", 
    RowBox[{
     RowBox[{"L", "[", "t", "]"}], " ", "-", " ", 
     RowBox[{
     "\:0434\:0430\:043b\:044c\:043d\:043e\:0441\:0442\:044c", " ", 
      "\:043f\:043e\:043b\:0435\:0442\:0430"}]}], ",", " ", 
    RowBox[{
     RowBox[{"H", "[", "t", "]"}], " ", "-", " ", 
     RowBox[{
     "\:0432\:044b\:0441\:043e\:0442\:0430", " ", 
      "\:043f\:043e\:043b\:0435\:0442\:0430"}]}], ",", " ", 
    RowBox[{
     RowBox[{"dZ", "[", "t", "]"}], " ", "-", " ", 
     RowBox[{
     "\:0431\:043e\:043a\:043e\:0432\:043e\:0435", " ", 
      "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0435"}]}]}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975865978531904`*^9, 3.497586611596814*^9}}],

Cell[BoxData[
 RowBox[{"vg", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"vgx", "[", "t", "]"}], ",", 
    RowBox[{"vdy", "[", "t", "]"}], ",", 
    RowBox[{"vgz", "[", "t", "]"}]}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0437\:0435\:043c\:043d\:043e\:0439", " ", 
    "\:0441\:043e\:043a\:0440\:043e\:0441\:0442\:0438", " ", 
    "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", 
    " ", "\:041b\:0410", " ", "\:0432", " ", 
    "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497586627290442*^9, 3.497586639052863*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"D", "[", 
    RowBox[{"R", ",", "t"}], "]"}], "]"}], "\[Equal]", 
  RowBox[{"MatrixForm", "[", "vg", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\
\:043e\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", 
    " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", 
    " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430", " ", "\:0432", 
    " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", 
    "\:0444\:043e\:0440\:043c\:0435"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975866526248865`*^9, 3.497586653748089*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"vzem", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"vk", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0437\:0435\:043c\:043d\:043e\:0439", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:0432", " ", 
    "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ",
     "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975866786301327`*^9, 3.497586679597334*^9}, {
  3.4975949269213495`*^9, 3.497594928786456*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"vg", "=", 
    RowBox[{"M", ".", "vzem"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:0435\:043c", " ", 
    "\:0432\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0437\:0435\:043c\:043d\:043e\:0439", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:043d\:0430", 
    " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:044b\:0435", " ", 
    "\:043e\:0441\:0438", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975866854161444`*^9, 3.4975867008757715`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"D", "[", 
    RowBox[{"R", ",", "t"}], "]"}], "]"}], "\[Equal]", 
  RowBox[{"MatrixForm", "[", "vg", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\
\:043e\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", 
    " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", 
    " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430", " ", "\:0432", 
    " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", 
    "\:0444\:043e\:0440\:043c\:0435"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975867435886464`*^9, 3.4975867445714483`*^9}}],

Cell[BoxData[
 RowBox[{"ukpd1", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{"vg", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497586747972254*^9, 3.4975867484402547`*^9}, {
  3.4975867910595293`*^9, 3.497586816362774*^9}}],

Cell[BoxData[
 RowBox[{"ukpd2", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{"vg", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497586828187595*^9, 3.497586838343213*^9}}],

Cell[BoxData[
 RowBox[{"ukpd3", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{"vg", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.49758684244602*^9, 3.4975868521492367`*^9}}],

Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\
\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \
\:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\:044c\:043d\:043e\
\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f",
 FontSize->36,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.497586871571271*^9, 3.497586886360097*^9}, 
   3.497588536719396*^9, 3.4975918746797714`*^9}],

Cell[BoxData[
 RowBox[{"v", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"vx", "[", "t", "]"}], ",", 
    RowBox[{"vy", "[", "t", "]"}], ",", 
    RowBox[{"vz", "[", "t", "]"}]}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0432\:043e\:0437\:0434\:0443\:0448\:043d\:043e\:0439", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:041b\:0410", 
    " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975869047369294`*^9, 3.4975869127241435`*^9}}],

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"{", 
   RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
     "\:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\
\:0435\:0439", " ", "\:0441\:0438\:043b"}], ",", " ", 
    RowBox[{
    "\:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\:0445", " ",
      "\:043d\:0430", " ", "\:041b\:0410", " ", "\:0432", " ", 
     "\:043f\:043e\:043b\:0435\:0442\:0435"}], ",", " ", 
    RowBox[{
    "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", 
     " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
     "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497586936732586*^9, 3.497586938198988*^9}, {
  3.497598985694498*^9, 3.497599008476801*^9}}],

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"wx", "[", "t", "]"}], ",", 
    RowBox[{"wy", "[", "t", "]"}], ",", 
    RowBox[{"wz", "[", "t", "]"}]}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:041b\:0410", 
    " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.497586955577419*^9, 3.4975869566538205`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"massa", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"v", ",", "t"}], "]"}], "+", 
      RowBox[{"Cross", "[", 
       RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], "]"}], "\[Equal]", 
  RowBox[{"MatrixForm", "[", "f", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:043e\:0435",
     " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", 
    " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430", " ", "\:0432", 
    " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", 
    "\:0444\:043e\:0440\:043c\:0435"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.497586961287029*^9, 3.497586961645829*^9}, {
  3.4975870859000473`*^9, 3.4975871127944946`*^9}}],

Cell[BoxData[
 RowBox[{"udpd1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"massa", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"v", ",", "t"}], "]"}], "+", 
        RowBox[{"Cross", "[", 
         RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
   RowBox[{"f", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497587158346575*^9, 3.4975872255514927`*^9}}],

Cell[BoxData[
 RowBox[{"udpd2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"massa", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"v", ",", "t"}], "]"}], "+", 
        RowBox[{"Cross", "[", 
         RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
   RowBox[{"f", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4975872367367125`*^9, 3.497587247251131*^9}}],

Cell[BoxData[
 RowBox[{"udpd3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"massa", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"v", ",", "t"}], "]"}], "+", 
        RowBox[{"Cross", "[", 
         RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
   RowBox[{"f", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497587250839137*^9, 3.497587262242757*^9}}],

Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\
\:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\
\:0438\:044f \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\
\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f",
 FontSize->36,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.497587293021611*^9, 3.497587305735634*^9}, 
   3.4975885385601993`*^9, 3.497591876629883*^9}],

Cell[BoxData[
 RowBox[{"proekc", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"LGamma", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0", ",", 
     "0"}], "}"}], "+", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"MM2", ".", "MM3"}], "]"}], ".", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"LPsi", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0"}], 
     "}"}]}], "+", 
   RowBox[{
    RowBox[{"Transpose", "[", "MM3", "]"}], ".", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"LTeta", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}], " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "\:041f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:0435\:043c", " ", 
       "\:0443\:0433\:043b\:043e\:0432\:044b\:0435", " ", 
       "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", 
       "\:0440\:044b\:0441\:043a\:0430\:043d\:0438\:044f"}], ",", " ", 
      RowBox[{
      "\:0442\:0430\:043d\:0433\:0430\:0436\:0430", " ", "\:0438", " ", 
       "\:043a\:0440\:0435\:043d\:0430", " ", "\:043d\:0430", " ", 
       "\:043e\:0441\:0438", " ", 
       "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
       "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", 
       "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], 
     "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.497587314456049*^9, 3.497587333722083*^9}}],

Cell[BoxData[
 RowBox[{"ukvd1", "=", 
  RowBox[{
   RowBox[{"w", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
   RowBox[{"proekc", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4975873614433317`*^9, 3.4975873621609325`*^9}, {
  3.497587394203389*^9, 3.4975874210510364`*^9}}],

Cell[BoxData[
 RowBox[{"ukvd2", "=", 
  RowBox[{
   RowBox[{"w", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
   RowBox[{"proekc", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4975874306918535`*^9, 3.4975874397710695`*^9}}],

Cell[BoxData[{
 RowBox[{"ukvd3", "=", 
  RowBox[{
   RowBox[{"w", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
   RowBox[{"proekc", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}], "\[IndentingNewLine]", "w"}], "Input",
 CellChangeTimes->{{3.497587445402679*^9, 3.4975874553086967`*^9}, {
  3.500725699388814*^9, 3.5007257026960196`*^9}}],

Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\
\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \
\:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e\
 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f",
 FontSize->36,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.497587484622348*^9, 3.4975875020163784`*^9}, 
   3.497588540697403*^9, 3.4975918781949725`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"TI", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Ixx", ",", 
        RowBox[{"-", "Ixy"}], ",", 
        RowBox[{"-", "Ixz"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "Iyx"}], ",", "Iyy", ",", 
        RowBox[{"-", "Iyz"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "Izx"}], ",", 
        RowBox[{"-", "Izy"}], ",", "Izz"}], "}"}]}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0422\:0435\:043d\:0437\:043e\:0440", " ", 
    "\:0438\:043d\:0435\:0440\:0446\:0438\:0438"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975875047619834`*^9, 3.4975875185680075`*^9}}],

Cell[BoxData[
 RowBox[{"Ixz", "=", 
  RowBox[{"Izx", "=", 
   RowBox[{"Iyz", "=", 
    RowBox[{"Izy", "=", "0", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041e\:0441\:044c", " ", "OZ", " ", 
       "\:043f\:0435\:0440\:043f\:0435\:043d\:0434\:0438\:043a\:0443\:043b\
\:044f\:0440\:043d\:0430", " ", 
       "\:043f\:043b\:043e\:0441\:043a\:043e\:0441\:0442\:0438", " ", 
       "\:0441\:0438\:043c\:043c\:0435\:0442\:0440\:0438\:0438", " ", "XOY"}],
       "*)"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.4975875343864355`*^9, 3.4975875353224373`*^9}}],

Cell[BoxData[
 RowBox[{"Iyx", "=", "Ixy"}]], "Input",
 CellChangeTimes->{{3.497587556834875*^9, 3.4975875683476954`*^9}}],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "TI", "]"}]], "Input",
 CellChangeTimes->{{3.4975875883313303`*^9, 3.4975875892049313`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"K", "=", 
    RowBox[{"TI", ".", "w"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0413\:043b\:0430\:0432\:043d\:044b\:0439", " ", 
    "\:043c\:043e\:043c\:0435\:043d\:0442", " ", 
    "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.49758760528856*^9, 3.4975876064897623`*^9}}],

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{"{", 
   RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\
\:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", 
    "\:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\
\:0441\:043a\:0438\:0445", " ", "\:0441\:0438\:043b", " ", "\:0438", " ", 
    "\:0442\:044f\:0433\:0438", " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
      "\:041c\:043e\:043c\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b",
        " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438"}], ",", " ", 
      RowBox[{
      "\:0446\:0435\:043d\:0442\:0440\:043e\:0431\:0435\:0436\:043d\:044b\
\:0445", " ", "\:0438", " ", 
       "\:043a\:043e\:0440\:0438\:043e\:043b\:0438\:0441\:043e\:0432\:044b\
\:0445", " ", "\:0441\:0438\:043b", " ", 
       "\:0438\:043d\:0435\:0440\:0446\:0438\:0438", " ", 
       "\:0432\:043e\:043a\:0440\:0443\:0433", " ", 
       "\:0446\:0435\:043d\:0442\:0440\:0430", " ", 
       "\:043c\:0430\:0441\:0441", " ", "\:041b\:0410", " ", 
       "\:0440\:0430\:0432\:0435\:043d", " ", "\:043d\:0443\:043b\:044e"}]}], 
     ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.497587624102193*^9, 3.497587643352627*^9}, {
  3.4975990178283362`*^9, 3.4975990337062445`*^9}}],

Cell[BoxData[
 RowBox[{"lchudvd", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"K", ",", "t"}], "]"}], "+", 
   RowBox[{"Cross", "[", 
    RowBox[{"w", ",", "K"}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:041f\:043e\:043b\:043d\:0430\:044f", " ", 
     "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", 
     " ", "\:043f\:043e", " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", 
     " ", "\:0433\:043b\:0430\:0432\:043d\:043e\:0433\:043e", " ", 
     "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", 
     "\:043c\:043e\:043c\:0435\:043d\:0442\:0430", " ", 
     "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", 
     "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.497587684006298*^9, 3.4975877116963468`*^9}}],

Cell["\<\
\:041f\:043e\:043b\:043d\:0430\:044f \:043f\:0440\:043e\:0438\:0437\:0432\
\:043e\:0434\:043d\:0430\:044f \:0433\:043b\:0430\:0432\:043d\:043e\:0433\
\:043e \:0432\:0435\:043a\:0442\:043e\:0440\:0430 \:043c\:043e\:043c\:0435\
\:043d\:0442\:0430 \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432 \
\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0440\:0430\:0432\:043d\
\:0430 \:0433\:043b\:0430\:0432\:043d\:043e\:043c\:0443 \:043c\:043e\:043c\
\:0435\:043d\:0442\:0443 \:0432\:043d\:0435\:0448\:043d\:0438\:0445 \:0441\
\:0438\:043b, \:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\
\:0445 \:043d\:0430 \:0442\:0435\:043b\:043e.\
\>", "Text",
 CellChangeTimes->{{3.497587731243181*^9, 3.4975877421788006`*^9}, 
   3.4975885477954154`*^9, 3.497591881210145*^9, {3.4981973432989635`*^9, 
   3.4981973438329935`*^9}}],

Cell[BoxData[
 RowBox[{"udvd1", "=", 
  RowBox[{
   RowBox[{"lchudvd", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
   RowBox[{"M", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4975877461880074`*^9, 3.4975877801180673`*^9}}],

Cell[BoxData[
 RowBox[{"udvd2", "=", 
  RowBox[{
   RowBox[{"lchudvd", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
   RowBox[{"M", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497587804064109*^9, 3.49758781606053*^9}}],

Cell[BoxData[
 RowBox[{"udvd3", "=", 
  RowBox[{
   RowBox[{"lchudvd", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
   RowBox[{"M", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497587823985344*^9, 3.4975878333609605`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"polnsyst", "=", 
    RowBox[{"{", 
     RowBox[{
     "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", 
      "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", 
      "udvd2", ",", "udvd3"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:043e\:043b\:043d\:0430\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", 
    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410"}],
    "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975879099726954`*^9, 3.4975880393437223`*^9}, {
  3.4975880725717807`*^9, 3.497588096439823*^9}}],

Cell[TextData[StyleBox["\:0423\:0442\:043e\:0447\:043d\:0438\:043c \:0437\
\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438 \:0434\:043b\
\:044f \:0441\:0438\:043b \:0438 \:043c\:043e\:043c\:0435\:043d\:0442\:043e\
\:0432",
 FontSize->18,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.497600305575991*^9, 3.497600306522045*^9}, {
  3.49760039017583*^9, 3.4976004402396936`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Cy", "[", 
     RowBox[{
      RowBox[{"Alpha", "[", "t", "]"}], ",", 
      RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", 
      RowBox[{"dzak", "[", "t", "]"}], ",", 
      RowBox[{"drv", "[", "t", "]"}]}], "]"}], "=", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Cy", "[", 
        RowBox[{
         RowBox[{"Alpha", "[", "t", "]"}], ",", 
         RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", 
         ",", 
         RowBox[{"dzak", "[", "t", "]"}], ",", 
         RowBox[{"drv", "[", "t", "]"}]}], "]"}], ",", 
       RowBox[{"Alpha", "[", "t", "]"}]}], "]"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Alpha", "[", "t", "]"}], "-", "Alpha0"}], ")"}]}]}], "*)"}], 
  " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Cy", "[", 
    RowBox[{"Alpha", "[", "t", "]"}], "]"}], "*)"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442", " ", 
    "\:043f\:043e\:0434\:044a\:0451\:043c\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:043b\:044b"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975991577233377`*^9, 3.4975991780475*^9}, {
   3.4976005136688933`*^9, 3.497600533351019*^9}, {3.4976006044280844`*^9, 
   3.4976006047381024`*^9}, 3.5003642783114295`*^9, {3.500723213056447*^9, 
   3.500723231308479*^9}, 3.500725042924061*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"lyambda", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"l", "^", "2"}], ")"}], "/", "S"}], " ", 
    "\:041e\:0442\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:044c\:043d\:043e\
\:0435", " ", "\:0443\:0434\:043b\:0438\:043d\:0435\:043d\:0438\:0435", " ", 
    "\:043a\:0440\:044b\:043b\:0430"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.4975991906462207`*^9, 3.4975992088042593`*^9}, {
  3.497600663477462*^9, 3.4976006812194767`*^9}, {3.5007250164040146`*^9, 
  3.500725018619218*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Cx", "[", 
    RowBox[{"Mah", "[", "t", "]"}], "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Cx", "=", 
    RowBox[{"Cx0", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cy", "[", 
         RowBox[{
          RowBox[{"Alpha", "[", "t", "]"}], ",", 
          RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", 
          ",", 
          RowBox[{"dzak", "[", "t", "]"}], ",", 
          RowBox[{"drv", "[", "t", "]"}]}], "]"}], "^", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"lyambda", "*", "Pi"}], ")"}]}]}]}], "*)"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442", " ", 
    "\:0441\:0438\:043b\:044b", " ", 
    "\:043b\:043e\:0431\:043e\:0432\:043e\:0433\:043e", " ", 
    "\:0441\:043e\:043f\:0440\:043e\:0442\:0438\:0432\:043b\:0435\:043d\:0438\
\:044f"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.497599212898494*^9, 3.4975992231420794`*^9}, {
   3.4976006112634754`*^9, 3.497600626936372*^9}, {3.497630054132078*^9, 
   3.4976300602564282`*^9}, 3.5003642868419175`*^9, {3.5007233208526363`*^9, 
   3.5007233471074824`*^9}, 3.500725046886468*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"q", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ro", "[", 
        RowBox[{"H", "[", "t", "]"}], "]"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"vk", "[", "t", "]"}], ")"}], "^", "2"}]}], ")"}], "/", 
     "2"}]}], "*)"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0421\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", 
    "\:043d\:0430\:043f\:043e\:0440"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"q", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Rho]", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"vk", "[", "t", "]"}], ")"}], "^", "2"}]}], ")"}], "/", 
    "2"}]}]}]], "Input",
 CellChangeTimes->{{3.4975992278863506`*^9, 3.4975992500866203`*^9}, {
   3.4976008624668436`*^9, 3.497600873638482*^9}, {3.5003643856145673`*^9, 
   3.5003644010084476`*^9}, 3.500364442575825*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Maer", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"kmx", "[", 
        RowBox[{
         RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", 
         RowBox[{"deler", "[", "t", "]"}], ",", 
         RowBox[{"drn", "[", "t", "]"}], ",", 
         RowBox[{"wx", "[", "t", "]"}], ",", 
         RowBox[{"wy", "[", "t", "]"}], ",", 
         RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", 
       "l"}], ",", 
      RowBox[{
       RowBox[{"kmy", "[", 
        RowBox[{
         RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", 
         RowBox[{"deler", "[", "t", "]"}], ",", 
         RowBox[{"drn", "[", "t", "]"}], ",", 
         RowBox[{"wx", "[", "t", "]"}], ",", 
         RowBox[{"wy", "[", "t", "]"}], ",", 
         RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", 
       "l"}], ",", 
      RowBox[{
       RowBox[{"kmz", "[", 
        RowBox[{
         RowBox[{"Cy", "[", 
          RowBox[{
           RowBox[{"Alpha", "[", "t", "]"}], ",", 
           RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", 
           ",", 
           RowBox[{"dzak", "[", "t", "]"}], ",", 
           RowBox[{"drv", "[", "t", "]"}]}], "]"}], ",", "ugolVobr", ",", 
         RowBox[{"drv", "[", "t", "]"}], ",", 
         RowBox[{"dzak", "[", "t", "]"}], ",", 
         RowBox[{"wz", "[", "t", "]"}], ",", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Alpha", "[", "t", "]"}], ",", "t"}], "]"}], ",", 
         RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", 
       "ba"}]}], "}"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"Maer", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"kmx", "*", "q", "*", "s", "*", "l"}], ",", 
     RowBox[{"kmy", "*", "q", "*", "s", "*", "l"}], ",", 
     RowBox[{"kmz", "*", "q", "*", "s", "*", "ba"}]}], "}"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\
\:0441\:043a\:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442"}], 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.497599252372751*^9, 3.4975992689537*^9}, {
  3.4975996393918877`*^9, 3.4975996416660175`*^9}, {3.497631684209313*^9, 
  3.4976316914417267`*^9}, {3.4976318215831704`*^9, 3.4976318355919714`*^9}, {
  3.4976321594094925`*^9, 3.497632160889578*^9}, {3.5007235847894998`*^9, 
  3.5007236136807504`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"faer", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "Cx"}], "*", "q", "*", "s"}], ",", 
      RowBox[{
       RowBox[{"Cy", "[", 
        RowBox[{
         RowBox[{"Alpha", "[", "t", "]"}], ",", 
         RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", 
         ",", 
         RowBox[{"dzak", "[", "t", "]"}], ",", 
         RowBox[{"drv", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}], ",", 
      RowBox[{
       RowBox[{"Cz", "[", 
        RowBox[{
         RowBox[{"Betta", "[", "t", "]"}], ",", 
         RowBox[{"drn", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}]}], 
     "}"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"faer", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "Cx"}], "*", "q", "*", "s"}], ",", 
     RowBox[{
      RowBox[{"Cy", "[", 
       RowBox[{"Alpha", "[", "t", "]"}], "]"}], "*", "q", "*", "s"}], ",", 
     RowBox[{
      RowBox[{"Cz", "[", 
       RowBox[{
        RowBox[{"Betta", "[", "t", "]"}], ",", 
        RowBox[{"drn", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}]}], 
    "}"}], 
   RowBox[{"(*", 
    RowBox[{
    "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\
\:0441\:043a\:0430\:044f", " ", "\:0441\:0438\:043b\:0430", " ", "\:0432", 
     " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ",
      "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
     "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.4975992774281845`*^9, 3.4975992898668957`*^9}, {
   3.4975996475543547`*^9, 3.497599647931376*^9}, {3.497633489397564*^9, 
   3.497633491926708*^9}, {3.497633566389968*^9, 3.4976335947475896`*^9}, 
   3.497634057808075*^9, {3.5007236380323935`*^9, 3.5007236640844393`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"faersv", "=", 
    RowBox[{"SM", ".", "faer"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\
\:0441\:043a\:0430\:044f", " ", "\:0441\:0438\:043b\:0430", " ", "\:0432", 
    " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4976337675464735`*^9, 3.4976338336632547`*^9}, {
  3.497633869195287*^9, 3.497633882677058*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Gsv", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", "MM", "]"}], ".", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "G"}], ",", "0"}], "}"}]}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0421\:0438\:043b\:0430", " ", 
    "\:0442\:044f\:0436\:0435\:0441\:0442\:0438", " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.4976346480768366`*^9, 3.497634648694872*^9}, {
  3.497635502173688*^9, 3.497635557163833*^9}, {3.49763559067675*^9, 
  3.497635637043402*^9}}],

Cell[BoxData[
 RowBox[{"Mx", "=", 
  RowBox[{"Maer", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.497599697097188*^9, 3.4975997207445407`*^9}, 
   3.4976318518559017`*^9}],

Cell[BoxData[
 RowBox[{"My", "=", 
  RowBox[{"Maer", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4975997313221455`*^9, 3.4975997419277525`*^9}, 
   3.497631854434049*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Mz", "=", 
    RowBox[{
     RowBox[{"Maer", "[", 
      RowBox[{"[", "3", "]"}], "]"}], "-", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{
        RowBox[{"dsg", "[", "t", "]"}], ",", 
        RowBox[{"vk", "[", "t", "]"}], ",", 
        RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", "yp", "*", 
      RowBox[{"Cos", "[", "fip", "]"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Mz", "=", 
   RowBox[{
    RowBox[{"Maer", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "-", 
    RowBox[{"P", "*", "yp", "*", 
     RowBox[{"Cos", "[", "fip", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.4975997524553547`*^9, 3.497599760986842*^9}, {
  3.4976318576812353`*^9, 3.4976318603493876`*^9}, {3.497632985522744*^9, 
  3.497632988280902*^9}, {3.497633029105237*^9, 3.497633099148243*^9}, {
  3.500724970118733*^9, 3.5007249790575485`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"fx", "=", 
    RowBox[{
     RowBox[{"faersv", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "+", 
     RowBox[{"Gsv", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "+", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{
        RowBox[{"dsg", "[", "t", "]"}], ",", 
        RowBox[{"vk", "[", "t", "]"}], ",", 
        RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", 
      RowBox[{"Cos", "[", "fip", "]"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"fx", "=", 
   RowBox[{
    RowBox[{"faersv", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "+", 
    RowBox[{"Gsv", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "+", 
    RowBox[{"P", "*", 
     RowBox[{"Cos", "[", "fip", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.497599771100421*^9, 3.497599790104508*^9}, {
  3.497635700736045*^9, 3.4976357440795245`*^9}, {3.4976357917792525`*^9, 
  3.4976357928873158`*^9}, {3.500724853399328*^9, 3.500724864771748*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"fy", "=", 
    RowBox[{
     RowBox[{"faersv", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "+", 
     RowBox[{"Gsv", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "+", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{
        RowBox[{"dsg", "[", "t", "]"}], ",", 
        RowBox[{"vk", "[", "t", "]"}], ",", 
        RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", 
      RowBox[{"Sin", "[", "fip", "]"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"fy", "=", 
   RowBox[{
    RowBox[{"faersv", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "+", 
    RowBox[{"Gsv", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "+", 
    RowBox[{"P", "*", 
     RowBox[{"Sin", "[", "fip", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.4975997993640375`*^9, 3.4975998205822515`*^9}, {
  3.497635769682989*^9, 3.497635774988292*^9}, {3.5007248737417636`*^9, 
  3.500724886408986*^9}}],

Cell[BoxData[
 RowBox[{"fz", "=", 
  RowBox[{
   RowBox[{"faersv", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "+", 
   RowBox[{"Gsv", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4975998151999435`*^9, 3.4975998331629705`*^9}, {
  3.4976358071431313`*^9, 3.4976358181837626`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"polnsystut", "=", 
    RowBox[{"{", 
     RowBox[{
     "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", 
      "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", 
      "udvd2", ",", "udvd3"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0423\:0442\:043e\:0447\:043d\:0435\:043d\:043d\:0430\:044f", " ", 
    "\:043f\:043e\:043b\:043d\:0430\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", 
    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410"}],
    "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975998846329145`*^9, 3.4975998918743286`*^9}, {
  3.4976367696301823`*^9, 3.4976368267394485`*^9}}],

Cell[BoxData[
 RowBox[{"vektorsost", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"{", 
    RowBox[{"R", ",", "v", ",", "w", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LPsi", "[", "t", "]"}], ",", 
       RowBox[{"LTeta", "[", "t", "]"}], ",", 
       RowBox[{"LGamma", "[", "t", "]"}]}], "}"}]}], "}"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975881345350895`*^9, 3.49758818049277*^9}, {
   3.497588237885271*^9, 3.4975883031401854`*^9}, {3.4975883656650953`*^9, 
   3.497588399392355*^9}, {3.497588932015461*^9, 3.497588942915084*^9}, {
   3.4975889905478086`*^9, 3.49758903288223*^9}, {3.4975891226773663`*^9, 
   3.49758914041438*^9}, {3.5003691380800266`*^9, 3.5003691475336437`*^9}, 
   3.500725270871661*^9}],

Cell[BoxData[
 RowBox[{"dvektorsost", "=", 
  RowBox[{"D", "[", 
   RowBox[{"vektorsost", ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4975881345350895`*^9, 3.49758818049277*^9}, {
   3.497588237885271*^9, 3.4975883031401854`*^9}, {3.4975883656650953`*^9, 
   3.497588399392355*^9}, {3.497588932015461*^9, 3.497588942915084*^9}, {
   3.4975889905478086`*^9, 3.49758903288223*^9}, {3.4975891226773663`*^9, 
   3.49758914041438*^9}, {3.5003691380800266`*^9, 3.5003691475336437`*^9}, 
   3.500725270871661*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SystFK", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{"polnsystut", ",", 
        RowBox[{"D", "[", 
         RowBox[{"vektorsost", ",", "t"}], "]"}], ",", 
        RowBox[{"Sort", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0420\:0430\:0437\:0440\:0435\:0448\:0430\:0435\:043c", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:0443", " ", 
    "\:043e\:0442\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:044c\:043d\:043e\
", " ", "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0445"}]\
, "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975891496489086`*^9, 3.497589294773209*^9}, {
  3.4975894013893075`*^9, 3.4975894152891026`*^9}, {3.4975894973097935`*^9, 
  3.4975896246110744`*^9}, {3.4975999110824275`*^9, 3.4975999117124634`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"systema", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"SystFK", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
       RowBox[{"SystFK", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0421\:0438\:0441\:0442\:0435\:043c\:0430", " ", 
    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410", 
    " ", "\:0432", " ", "\:0444\:043e\:0440\:043c\:0435", " ", 
    "\:041a\:043e\:0448\:0438"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975896281352763`*^9, 3.4975897694793606`*^9}}],

Cell[TextData[{
 StyleBox["\:041f\:0440\:0435\:0434\:0441\:0442\:0430\:0432\:0438\:043c \
\:043d\:0435\:043b\:0438\:043d\:0435\:0439\:043d\:0443\:044e \:043d\:0435\
\:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\:043d\:0443\:044e \
\:043c\:043e\:0434\:0435\:043b\:044c \:0434\:0432\:0438\:0436\:0435\:043d\
\:0438\:044f \:041b\:0410 \:0432 \:043c\:0430\:0442\:0440\:0438\:0447\:043d\
\:043e\:043c \:0432\:0438\:0434\:0435 ",
  FontSize->18,
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "\[CenterDot]"], TraditionalForm]],
  FontSize->18,
  FontWeight->"Bold"],
 StyleBox["[t]=Ax[t]+Bu[t]",
  FontSize->18,
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.49763697642101*^9, 3.497637034778348*^9}, {
  3.497637085618256*^9, 3.4976370877733793`*^9}, {3.4976372993804827`*^9, 
  3.497637321028721*^9}, {3.4976373548366547`*^9, 3.4976373725756693`*^9}, {
  3.497637404918519*^9, 3.4976374494570665`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MatrA", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"systema", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"vektorsost", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.497590262955586*^9, 3.497590407829872*^9}, {
  3.4975984832567606`*^9, 3.4975984925212903`*^9}, {3.49763747644461*^9, 
  3.4976375171519384`*^9}, {3.4976375574552436`*^9, 3.4976375690639076`*^9}, {
  3.49763902724131*^9, 3.497639030691508*^9}, {3.5003690630126953`*^9, 
  3.500369114149585*^9}, {3.5003691604972663`*^9, 3.500369420487323*^9}, {
  3.500369457942989*^9, 3.5003695449755416`*^9}, {3.5007231320767045`*^9, 
  3.500723144899927*^9}, {3.500725975119298*^9, 3.5007259767105007`*^9}, {
  3.500726025647787*^9, 3.500726042339816*^9}, {3.5007260902475004`*^9, 
  3.5007261462047987`*^9}, {3.500726197263688*^9, 3.5007262189165263`*^9}, {
  3.5007262600381985`*^9, 3.500726308554284*^9}}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"ff", "=", 
     RowBox[{
      RowBox[{"vektorsost", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ".", 
      RowBox[{"MatrA", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "12"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
     "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
     "\"\<\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e\>\"", 
     " ", "\:041b\:0410"}], " ", "-", " ", 
    RowBox[{"\:043c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "A"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.497590262955586*^9, 3.497590407829872*^9}, {
  3.4975984832567606`*^9, 3.4975984925212903`*^9}, {3.49763747644461*^9, 
  3.4976375171519384`*^9}, {3.4976375574552436`*^9, 3.4976375690639076`*^9}, {
  3.49763902724131*^9, 3.497639030691508*^9}, {3.5003690630126953`*^9, 
  3.500369114149585*^9}, {3.5003691604972663`*^9, 3.500369420487323*^9}, {
  3.500369457942989*^9, 3.5003695449755416`*^9}, {3.5007231320767045`*^9, 
  3.500723144899927*^9}, {3.500725975119298*^9, 3.5007259767105007`*^9}, {
  3.500726025647787*^9, 3.500726042339816*^9}, {3.5007260902475004`*^9, 
  3.5007261462047987`*^9}, {3.500726197263688*^9, 3.5007262189165263`*^9}, {
  3.5007262600381985`*^9, 3.500726308554284*^9}, {3.5007264129340672`*^9, 
  3.500726416802874*^9}, {3.500726469686967*^9, 3.5007264852557945`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"U", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"drv", "[", "t", "]"}], ",", 
      RowBox[{"deler", "[", "t", "]"}], ",", 
      RowBox[{"drn", "[", "t", "]"}], ",", 
      RowBox[{"dsg", "[", "t", "]"}]}], "}"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f", " ", 
    RowBox[{"U", "[", "t", "]"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4975908285409355`*^9, 3.4975908738595276`*^9}, {
   3.497637524943384*^9, 3.4976375370880785`*^9}, {3.497637575964302*^9, 
   3.497637579740518*^9}, 3.5003690575214853`*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"drv", "[", "t", "]"}], ",", 
    RowBox[{"deler", "[", "t", "]"}], ",", 
    RowBox[{"drn", "[", "t", "]"}], ",", 
    RowBox[{"dsg", "[", "t", "]"}]}], "}"}], "*)"}]], "Input",
 CellChangeTimes->{3.5003694303621407`*^9, 3.5007251363838253`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MatrB", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"systema", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"U", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], " ", ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
     "\:043f\:0435\:0440\:0435\:0434\:0430\:0447\:0438", " ", 
     "\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f"}], " ", 
    "-", " ", "B"}], "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.497590878917817*^9, 3.4975909367231236`*^9}, {
   3.497598346758953*^9, 3.497598353916363*^9}, {3.4976375848708115`*^9, 
   3.497637610292266*^9}, {3.49763905031463*^9, 3.497639059193138*^9}, {
   3.500368690811641*^9, 3.500368694727248*^9}, 3.500723159797953*^9, {
   3.5007247168678885`*^9, 3.5007247295975103`*^9}, 3.5007252058039465`*^9, 
   3.5007259627484765`*^9}]
},
WindowSize->{1202, 705},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 3731, 57, 283, "Text"],
Cell[4279, 79, 1128, 30, 52, "Input"],
Cell[5410, 111, 1002, 28, 31, "Input"],
Cell[6415, 141, 798, 16, 31, "Input"],
Cell[7216, 159, 1027, 24, 52, "Input"],
Cell[8246, 185, 1028, 28, 31, "Input"],
Cell[9277, 215, 1018, 27, 52, "Input"],
Cell[10298, 244, 1017, 28, 52, "Input"],
Cell[11318, 274, 794, 16, 31, "Input"],
Cell[12115, 292, 1010, 27, 31, "Input"],
Cell[13128, 321, 1046, 29, 52, "Input"],
Cell[14177, 352, 825, 17, 31, "Input"],
Cell[15005, 371, 481, 8, 55, "Text"],
Cell[15489, 381, 1149, 30, 31, "Input"],
Cell[16641, 413, 795, 18, 31, "Input"],
Cell[17439, 433, 788, 15, 31, "Input"],
Cell[18230, 450, 742, 18, 31, "Input"],
Cell[18975, 470, 672, 15, 31, "Input"],
Cell[19650, 487, 790, 15, 31, "Input"],
Cell[20443, 504, 369, 10, 31, "Input"],
Cell[20815, 516, 316, 9, 31, "Input"],
Cell[21134, 527, 317, 9, 31, "Input"],
Cell[21454, 538, 461, 7, 55, "Text"],
Cell[21918, 547, 724, 17, 31, "Input"],
Cell[22645, 566, 903, 20, 31, "Input"],
Cell[23551, 588, 710, 17, 31, "Input"],
Cell[24264, 607, 978, 21, 31, "Input"],
Cell[25245, 630, 501, 15, 31, "Input"],
Cell[25749, 647, 501, 15, 31, "Input"],
Cell[26253, 664, 499, 15, 31, "Input"],
Cell[26755, 681, 461, 7, 55, "Text"],
Cell[27219, 690, 1523, 40, 52, "Input"],
Cell[28745, 732, 317, 8, 31, "Input"],
Cell[29065, 742, 266, 7, 31, "Input"],
Cell[29334, 751, 345, 8, 52, "Input"],
Cell[29682, 761, 451, 7, 55, "Text"],
Cell[30136, 770, 733, 22, 31, "Input"],
Cell[30872, 794, 559, 13, 31, "Input"],
Cell[31434, 809, 121, 2, 31, "Input"],
Cell[31558, 813, 134, 2, 31, "Input"],
Cell[31695, 817, 678, 15, 31, "Input"],
Cell[32376, 834, 1565, 31, 52, "Input"],
Cell[33944, 867, 822, 18, 31, "Input"],
Cell[34769, 887, 846, 13, 29, "Text"],
Cell[35618, 902, 267, 7, 31, "Input"],
Cell[35888, 911, 262, 7, 31, "Input"],
Cell[36153, 920, 265, 7, 31, "Input"],
Cell[36421, 929, 746, 17, 52, "Input"],
Cell[37170, 948, 397, 7, 34, "Text"],
Cell[37570, 957, 1468, 36, 92, "Input"],
Cell[39041, 995, 545, 12, 31, "Input"],
Cell[39589, 1009, 1244, 30, 72, "Input"],
Cell[40836, 1041, 913, 27, 52, "Input"],
Cell[41752, 1070, 2493, 60, 92, "Input"],
Cell[44248, 1132, 1868, 47, 52, "Input"],
Cell[46119, 1181, 642, 14, 31, "Input"],
Cell[46764, 1197, 761, 19, 31, "Input"],
Cell[47528, 1218, 201, 5, 31, "Input"],
Cell[47732, 1225, 201, 5, 31, "Input"],
Cell[47936, 1232, 896, 23, 52, "Input"],
Cell[48835, 1257, 965, 26, 52, "Input"],
Cell[49803, 1285, 919, 26, 52, "Input"],
Cell[50725, 1313, 311, 8, 31, "Input"],
Cell[51039, 1323, 824, 18, 52, "Input"],
Cell[51866, 1343, 942, 20, 31, "Input"],
Cell[52811, 1365, 515, 9, 31, "Input"],
Cell[53329, 1376, 931, 21, 52, "Input"],
Cell[54263, 1399, 872, 22, 31, "Input"],
Cell[55138, 1423, 941, 21, 40, "Text"],
Cell[56082, 1446, 1265, 27, 31, "Input"],
Cell[57350, 1475, 1702, 36, 52, "Input"],
Cell[59055, 1513, 688, 17, 31, "Input"],
Cell[59746, 1532, 316, 8, 31, "Input"],
Cell[60065, 1542, 1224, 29, 52, "Input"]
}
]
*)

(* End of internal cache information *)